home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Webster's Millennium Amer…Sign Language Dictionary
/
ASL.ISO
/
mac
/
SHARED.cst
/
00029_Script_POP UP
< prev
next >
Wrap
Text File
|
2001-09-17
|
2KB
|
76 lines
--∂ï
----PETEMACK 06.27.01
on openPop
-- if the machineType = 256 then openxlib the pathname&"Popup.DLL"
-- else openxlib the pathname&"Popup.XOb"
end openPop
--
on closePop
-- global gMyPopUp
-- if objectp(gMyPopUp) then gMyPopUp(mDispose)
-- if the machineType = 256 then closeXlib the pathname&"POPUP.DLL"
-- else closeXlib the pathname&"Popup.XOb"
end
--
on registerPop
-- global gMyPopUp
-- if the machineType = 256 then
-- gMyPopUp(mRegister,"PPXW200-2502856731")
-- else
-- gMyPopUp(mRegister,"PPXM200-1272894216")
-- end if
-- gMyPopUp(mSetAutoMark,FALSE)
end registerPop
on putItem
-- global gMyPopUp
-- put the mouseh into x
-- put the mousev into y
-- put gMyPopUp(mPopUpSpec,x,y) into gMyMenuSpec
-- return gMyPopUp(mGetItem,gMyMenuSpec)
end
on makeProdCatStr catnames
set returnStr = "Categories A-F["
repeat with i = 1 to (the number of lines of catNames)/2
put line i of catNames&";" after returnStr
end repeat
put "];Categories G-Z[" after returnStr
repeat with i = (the number of lines of catNames)/2+1 to the number of lines of catNames
put line i of catNames&";" after returnStr
end repeat
put "];" after returnStr
return returnStr
end
--
on makeUserCatStr
global gCurrentUser,gUserData
set returnstr = ""
if not voidP(gCurrentUser) and not (gCurrentUser = "") then
set catList = getUserCategoryList()
if catList = "" then return returnStr
put "[" after returnStr
repeat with i = 1 to the number of lines of catList
put line i of catlist & ";" after returnstr
end repeat
delete char (length(returnStr)) of returnStr
put "]" after returnStr
end if
return returnStr
--return ""
end
on makeDownLoadsStr
global gDownLoads
if gDownLoads = "none" or gDownLoads = "" or voidp(gDownLoads) then return ""
tell the stage to set DLTemp = getStringToList(gDownLoads)
sort(DLTemp)
set returnStr = "Downloaded Signs["
repeat with i = 1 to count(DLTemp)
set returnStr = returnStr&getAt(DLTemp,i)&";"
end repeat
delete char length(returnStr) of returnStr
set returnStr = returnStr&"]"
return returnStr
end